home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_cmdl.ps < prev    next >
Text File  |  2003-01-03  |  5KB  |  171 lines
  1. %    Copyright (C) 1994, 1996, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Parse and execute the command line.
  8. % C code handles the following switches: -h/-? -I -M -v
  9.  
  10. /cmddict 50 dict def
  11. cmddict begin
  12.  
  13. % ---------------- Utility procedures ---------------- %
  14.  
  15. % Get the next argument from the parsed argument list.
  16. /nextarg        % - nextarg <arg> true
  17.             % - nextarg false
  18.  { argv length 0 eq
  19.     { false }
  20.     { argv dup 0 get exch dup length 1 sub 1 exch getinterval /argv exch def }
  21.    ifelse
  22.  } bind def
  23.  
  24. % Run a file, under job control if implemented.
  25. /runjob            % <file> runjob -
  26.  { end        % cmddict
  27.    /startjob where { pop false () startjob pop }
  28.    run
  29.    //cmddict begin
  30.  } bind def
  31. /runfilejob        % <filename> runfilejob -
  32.  { findlibfile { exch pop } { (r) file } runjob
  33.  } bind def
  34.  
  35. % Expand arguments.  Free variables: expand@.
  36. /expandarg        % <string> expandarg <args...>
  37.  { dup () eq
  38.     { pop
  39.     }
  40.     { dup dup (--) eq exch (-+) eq or
  41.        { pop /expand@ false def
  42.        }
  43.        { expand@ { (@) anchorsearch } { false } ifelse
  44.       { pop findlibfile
  45.          { exch pop }
  46.          { (r) file }        % let the error happen
  47.         expandargfile
  48.       }
  49.      if
  50.        }
  51.       ifelse
  52.     }
  53.  } bind def
  54. /expandargfile        % <file> expandargfile <args...>
  55.  { [ exch cvlit
  56.     { token not { exit } if
  57.       dup type /stringtype ne { =string cvs dup length string copy } if
  58.       expandarg
  59.     }
  60.    /exec cvx
  61.    ] cvx loop
  62.  } bind def
  63.  
  64. % ---------------- Recognized switches ---------------- %
  65.  
  66. % Switches with arguments are defined as <x>;
  67. % switches without arguments are defined as -<x>.
  68.  
  69. % Switches without arguments
  70. /--
  71.  { nextarg not
  72.     { (-- and -+ require a file name.) = flush }
  73.     { //systemdict /ARGUMENTS argv put /argv [] def runjob }
  74.    ifelse
  75.  } bind def
  76. /-+ /-- load def
  77. /-@ /-- load def
  78. /-A { (@) Z } bind def
  79. /-c
  80.  {  { argv length 0 eq { exit } if
  81.       argv 0 get (-) anchorsearch { pop pop exit } if
  82.       pop nextarg token
  83.        { exch pop            % Probably should check for empty.
  84.      end exec //cmddict begin
  85.        }
  86.       if
  87.     }
  88.    loop
  89.  } bind def
  90. /-e { (#) Z } bind def
  91. /-E /-e load def
  92. /-f { } def
  93. /-q { //systemdict /QUIET true put } bind def
  94.  
  95. % Switches with arguments
  96. /d
  97.  { (=) search not { (#) search not { () exch dup } if } if
  98.    exch pop cvn dup where
  99.     { pop (Redefining ) print print ( is not allowed.) = flush pop }
  100.     { exch token
  101.        { exch pop }        % Probably should check for empty.
  102.        { true }
  103.       ifelse
  104.       //systemdict 3 1 roll put
  105.     }
  106.    ifelse
  107.  } bind def
  108. /D /d load def
  109. /f { dup length 0 ne { runfilejob } if } bind def
  110. /g
  111.  { (x) search { cvi pop exch cvi } { cvi dup } ifelse
  112.    //systemdict begin /DEVICEHEIGHT exch def /DEVICEWIDTH exch def end
  113.  } bind def
  114. /r
  115.  { (x) search { cvr pop exch cvr } { cvr dup } ifelse
  116.    //systemdict begin /DEVICEYRESOLUTION exch def /DEVICEXRESOLUTION exch def end
  117.  } bind def
  118. /s
  119.  { (=) search not { (#) search not { () exch dup } if } if
  120.    exch pop cvn dup where { pop dup load } { () } ifelse
  121.    type /stringtype ne
  122.     { (Redefining ) print print ( is not allowed.) = flush pop }
  123.     { exch //systemdict 3 1 roll put }
  124.    ifelse
  125.  } bind def
  126. /S /s load def
  127. /Z { true .setdebug } bind def
  128.  
  129. % ---------------- Main program ---------------- %
  130.  
  131. % We process the command line in two passes.  In the first pass,
  132. % we read and expand any @-files as necessary.  The second pass
  133. % does the real work.
  134.  
  135. /cmdstart
  136.  { //cmddict begin
  137.    /expand@ true def
  138.    [
  139.         % Process the GS_OPTIONS environment variable.
  140.    (GS_OPTIONS) getenv { 0 () /SubFileDecode filter expandargfile } if
  141.         % Process the actual command line.
  142.    .getargv { expandarg } forall
  143.    ] readonly /argv exch def
  144.         % Now interpret the commands.
  145.     { nextarg not { exit } if
  146.       dup 0 get (-) 0 get eq
  147.        { dup length 1 eq
  148.       { pop (%stdin) (r) file runjob
  149.       }
  150.       { dup length 2 gt
  151.          { dup dup length 2 sub 2 exch getinterval exch 1 1 getinterval }
  152.         if currentdict .knownget
  153.          { exec
  154.          }
  155.          { (Ignoring unknown switch ) print
  156.            dup length 1 eq { (-) print print } if print
  157.            () = flush
  158.          }
  159.         ifelse
  160.       }
  161.      ifelse
  162.        }
  163.        { runfilejob
  164.        }
  165.       ifelse
  166.     }
  167.    loop end
  168.  } bind def
  169.  
  170. end        % cmddict
  171.